home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / vbcc / machines / amiga68k / libsrc / ixemul / support / tstd.s < prev    next >
Encoding:
Text File  |  1998-06-24  |  235 b   |  16 lines
  1.     xdef    __ieeetstd
  2.     xref    ___cmpdf2
  3. ;   ieeek!
  4. __ieeetstd:
  5.     move.l  (a7),ret
  6.     clr.l   (a7)
  7.     clr.l   -(a7)
  8.     jsr     ___cmpdf2
  9.     addq.w  #8,a7
  10.     neg.l   d0
  11.     move.l  ret,a0
  12.     jmp     (a0)
  13. ret:
  14.     ds.l    1
  15.  
  16.